000100******************************************************************
000200*PROJECT  : REG-B
000300*AUTHOR   : Minh-Tuan Ta
000400*DATE     : 03/26/2012
000500******************************************************************
000600 IDENTIFICATION DIVISION.
000700 PROGRAM-ID. REG-B.
000800 ENVIRONMENT DIVISION.
000900     SELECT OUTFILE      ASSIGN TO "REGMST.DAT"
001000                         ORGANIZATION    IS INDEXED
001100                         ACCESS          IS SEQUENTIAL
001200                         RECORD KEY      IS OUT-REG-ID
001300                         FILE STATUS     IS WS-STAT.
001400 DATA DIVISION.
001500 FILE SECTION.
001600 FD  OUTFILE.
001700 01  OUT-REC.
001800     05 OUT-REG-ID.
001900         10 OUT-TERM     PIC X(6).
002000         10 OUT-CRN      PIC 9(4).
002100         10 OUT-STU-ID   PIC 9(4).
002200     05  OUT-ACTIVE      PIC X.
002300 WORKING-STORAGE SECTION.
002400 01  WS-STAT             PIC XX.
002500 PROCEDURE DIVISION.
002600 100-MAIN.
002700     OPEN OUTPUT OUTFILE
002800     CLOSE OUTFILE
002900     EXIT PROGRAM.
